home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DJGPP
/
GZP124SR.ZIP
/
src
/
gzip-124
/
vms
/
vms.c
< prev
Wrap
C/C++ Source or Header
|
1993-06-01
|
2KB
|
103 lines
/* vms.c -- target dependent functions for VMS
* This is free software; you can redistribute it and/or modify it under the
* terms of the GNU General Public License, see the file COPYING.
*
* This file was written by Karl-Jose Filler <pla_jfi@pki-nbg.philips.de>
* and updated by Jean-loup Gailly.
*/
#include <stdio.h>
static char **vms_argv = NULL;
static int max_files = 10000;
struct Str_desc {
int length;
char *addr;
};
vms_expand_args(old_argc, argv)
int *old_argc;
char **argv[];
{
int i;
int new_argc = 0;
int context, status;
char buf[255], *p;
vms_argv = (char**)xmalloc((max_files+1)*sizeof(char*));
vms_argv[new_argc++] = **argv;
for (i=1; i < *old_argc; i++) {
if (*argv[0][i] == '-') { /* switches */
if (new_argc < max_files) {
vms_argv[new_argc++] = argv[0][i];
}
} else { /* Files */
context = 0;
if (find_file_c(argv[0][i], buf, sizeof(buf), &context) & 1 != 1) {
/*
* Wrong file ?
* forward it to gzip
*/
if (new_argc < max_files) {
vms_argv[new_argc++] = argv[0][i];
}
} else {
p = (char*)xmalloc(strlen(buf)+1);
strcpy(p, buf);
if (new_argc < max_files) {
vms_argv[new_argc++] = p;
}
while (find_file_c(argv[0][i], buf,
sizeof(buf), &context) & 1 == 1) {
p = (char*)xmalloc(strlen(buf)+1);
strcpy(p, buf);
if (new_argc < max_files) {
vms_argv[new_argc++] = p;
}
}
}
}
}
if (new_argc <= max_files) {
*old_argc = new_argc;
vms_argv[new_argc] = NULL;
*argv = vms_argv;
} else {
free(vms_argv); /* the expanded file names should also be freed ... */
vms_argv = NULL;
max_files = new_argc + 1;
vms_expand_args(old_argc, argv);
}
}
int find_file_c(in,out,out_len,context)
char *in;
char *out;
int out_len;
int *context;
{
struct Str_desc in_desc,out_desc;
int status;
char *p;
in_desc.addr = in;
in_desc.length = strlen(in);
out_desc.addr = out;
out_desc.length = out_len;
status = lib$find_file(&in_desc,&out_desc,context);
p = out_desc.addr;
while(*p != ' ') {
p++;
}
*p = 0;
return status;
}